home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / CONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-12  |  407 b   |  10 lines
  1. 10 input "Enter a number to convert to a 4-byte hex value: " ,IN$ 
  2. 20 I =val (IN$ ):HIBYTE =int (I /256 ):lobyte =I -HIBYTE *256 
  3. 30 HIHI =int (HIBYTE /16 ):HILO =HIBYTE -HIHI *16 
  4. 40 LOHI =int (LOBYTE /16 ):LOLO =LOBYTE -LOHI *16 
  5. 50 V =HIHI :gosub 200 :V =HILO :gosub 200
  6. 60 V =LOHI :gosub 200 :V =LOLO :gosub 200 
  7. 70 end 
  8. 200 if V <10 then print V ;:return 
  9. 210 print chr$ (65 +V -10 );:return 
  10.